Imports System.Xml
Imports System.Data.SqlClient
Public Class dImpRecCuenta
    Public Function Insertar(ByVal IdRecibo As String, ByVal IdCuenta As String, ByVal Importe As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdRecibo <> "" Then
            Parametros.Add(New SqlParameter("@pEIdRecibo", IdRecibo))
        End If
        If IdCuenta <> "" Then
            Parametros.Add(New SqlParameter("@pEIdCuenta", IdCuenta))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        Return dConexion.ABM("STORE_TblImpRecCuentaALTA", Parametros)
    End Function
  Public Function Eliminar(ByVal IdImpRecCuenta as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if IdImpRecCuenta <> "" then 
       Parametros.Add(New SqlParameter("@pEIdImpRecCuenta", IdImpRecCuenta))
     End If
     Return dconexion.ABM("STORE_TblImpRecCuentaELIMINAR", Parametros)
  End Function
  Public Function BuscarFiltrado(ByVal IdImpRecCuenta as String,ByVal IdRecibo as String,ByVal IdCuenta as String) as DATASET
     Dim Parametros As ArrayList = New ArrayList
     if IdImpRecCuenta <> "" then 
       Parametros.Add(New SqlParameter("@pEIdImpRecCuenta", IdImpRecCuenta))
     End If
     if IdRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRecibo", IdRecibo))
     End If
     if IdCuenta <> "" then 
       Parametros.Add(New SqlParameter("@pEIdCuenta", IdCuenta))
     End If
     Return dconexion.Consultar("STORE_TblImpRecCuentaBUSCARFILTRADO", Parametros)
  End Function
End Class
